inherited frmContrato: TfrmContrato
  Left = 569
  Top = 261
  Width = 794
  Height = 618
  Caption = 'Contrato'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 539
    Width = 778
  end
  inherited tbrBotoes: TsToolBar
    Width = 778
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
    object spbImprimir: TsSpeedButton
      Left = 603
      Top = 2
      Width = 65
      Height = 55
      Hint = 'Imprime o Contrato Selecionado'
      Caption = 'Imprimir'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF999697BDBBBC
        9D9A9A898687FF00FFFF00FF979596C6C6C6D0CFCFAFACAC989596FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF999697B7
        B5B6F0EFEFF4F3F3AAA7A79D9A9A4241424644456E6C6D999797BCBBBBDAD9D9
        E0E0E0C9C7C7A3A0A1FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9896
        97A9A5A6E3E2E2FFFEFEFCFBFBEFEEEEA7A5A59E9C9C3332341212131C1C1D2A
        2A2C4745476D6A6C9A9898C5C4C4E2E1E1D4D3D3959192FF00FFFF00FFFF00FF
        FF00FF9A9899D8D5D5FCFBFBFBFAFAF8F7F7FBFAFAE7E5E6A3A0A0A3A0A0807F
        805453543332341E1E1F1616171A1A1C29292B454445736F70918F8FFF00FFFF
        00FFFF00FF8E8A8BC4C1C1F6F4F4FAF8F8F4F3F3F4F3F3E3E2E2B8B7B7989697
        8986878C8A8A9A9798A5A1A39F9D9D878686605F603D3C3D2222231415162B2A
        2C8A8788FF00FFFF00FFFF00FF8E8A8BEBEBEBF0F0F0EDEBEBD9D8D8B0ADAD96
        9293A6A4A4C7C6C6A4A1A1928F8F8B88898884868B8989969293A19F9EA19F9F
        918F906A696A5151528B8989FF00FFFF00FFFF00FF8E8A8BDEDDDDD0CFCFA7A5
        A5939091A7A5A5CAC9CAD5D7D5DCDADAE1E0E0CCCACABAB7B7A7A5A59A97988F
        8B8C8A8788898687918E8E9D9999A3A0A0918F8FFF00FFFF00FFFF00FF8E8A8B
        9E9C9D939191A9A7A7C7C7C7D1D3D3CECECEC9C9C9E6E5E5F6F4F4F3F3F3EDEB
        EBE0DEDECFCECEBFBDBDAFACACA19F9F9592928C8A8A8A8788868283FF00FFFF
        00FFFF00FF8E8A8BAAA7A9C9C7C7CFCFCFCBCBCBCACACAC6C6C6DADADAF4F3F3
        B5B2B4B6AAB4C4C1C2D8D7D7E1E1E1E2E2E2D9D9D9CECECEC1C0C0B4B2B2AAA7
        A7928F90FF00FFFF00FFFF00FF8E8A8BCACACACCCCCCCACACACACACAC7C7C7D7
        D7D7F4F3F3AFAAAC999E9866B06A9EA39D9995979C9A9AAAA9A9BBBABACCCBCB
        D1D1D1D1D1D1CFCFCF9A9999FF00FFFF00FFFF00FFFF00FFADABACD0D0D0CCCE
        CECECECEDEDEDEE3E2E2A4A1A1ABA9AAEEEEEDC7EDC9E5E9E5E0DDDEF8AF9AB0
        ADAF9F9D9D9591929A9798ABA9A9ABA9AAA39FA0FF00FFFF00FFFF00FFFF00FF
        FF00FFA19FA0BBBABACAC9C9B6B4B4999797BDBBBBF4F3F3F4F3F3F4EEF3EAE7
        E7E5E3E3E2E2E2E1E1E1D9D9D9CECECEBFBFBF9592938F8B8CFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FF8A8788A9A7A7D1D1D1BFBFBF989999
        BABABAD3D1D1DEDDDDE1E0E0DEDEDEDCDCDCDDDDDDD7D7D7B5B5B5A7A4A5FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9D9A9CF3F4F4F4
        F3F2D9D5D4AAA7A7A7A9A9B4B7B8C7CBCCC9CCCCCCCECECCCCCCB6B5B6989697
        A7A4A5FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFE9CECCFFE3D9FFDDCFFED5C7F8D3C6F3D1C6EDD1CAE6D4CFDED8D5D0
        D0D0B8B7B8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFDDB4B0FFE0D3FFD8C9FFCFC0FFC7B5FFC0AAFFBA
        A4FFB79FFCB099E5C5C1FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFDEB5B0FFE5D8FFD8C9FFCFC0
        FFC9B7FEC1ADFEBBA5FFB49CF7A691FF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFE6BFB8FF
        E5D8FFD8C9FFCFC0FFC9B7FEC1ADFEBBA5FFB59DEBA08FFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFE1BDB8FFE2D5FFD8C9FFCFC0FFC9B7FEC1ADFEBBA5FFB59DF8AF9AFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFE1BDB8FFE0D3FFD8C9FFCFC0FFC9B7FEC1ADFFBB
        A5F8AF9AF8AF9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFE0BAB5FFEDE2FFE0D3FFD8C9FFCFC0
        FEC9B7FEC2ADFFBDA6F8AF9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFE1BDB8FFF0E5FF
        E5D8FFDECEFFD5C5FFCEBBFFC7B2EDAB9CF8AF9AFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFCE9F
        9DE1BDB8E0B7B2E0B5ADE0B1A9E0ACA5E0AAA0DDA39AF8AF9AFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = spbImprimirClick
      SkinData.SkinSection = 'SPEEDBUTTON'
    end
    object spbEnviar: TsSpeedButton
      Left = 668
      Top = 2
      Width = 65
      Height = 55
      Hint = 'Envia o Contrato Selecionado por E-mail'
      Caption = 'Enviar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF8E5D598E5D598E5D598E5D598E5D598E
        5D598E5D598E5D598E5D598E5D598E5D598E5D598E5D598E5D598E5D598E5D59
        8E5D598E5D598E5D598E5D598E5D59FF00FFFF00FF8E5D59AC7967EBB283FFC4
        8BFFC48AFEC48AFFC48BFFC48BFFC48AFFC48AFFC48BFFC48AFFC48AFFC48AFF
        C48AFFC48BFFC48BFFC48BFFC48BFFC58BEBB282AC79678E5D59FF00FF8E5D59
        D9A784A67567F7C596FFCB98FECB98FFCB99FFCB98FFCB99FECB98FFCA98FECB
        99FECB99FFCB98FFCB99FFCB98FECB98FFCB99FFCB98F8C596A67567D9A6848E
        5D59FF00FF8E5D59FED4AAC2937EBA8A78FFD4A9FFD4AAFFD4AAFFD4AAFED4AA
        FED4AAFFD4A9FFD4AAFED4AAFFD4AAFED4AAFED4AAFFD4AAFFD4AAFFD4AAB88A
        78C2937EFED4AA8E5D59FF00FF8E5D59FEDEBDFBDABBAC8075D1AA95FEDEBCFF
        DDBCFFDEBCFEDEBCFEDDBDFFDDBDFFDDBDFFDEBCFEDDBDFEDEBDFEDEBCFFDDBC
        FFDDBDD1AA95AC8074FCDABAFFDEBC8E5D59FF00FF8E5D59FEE7D0FFE7D0F0D5
        C2A1756DE9CBB7FFE7D0FFE7D0FEE7D0FFE7D0FEE7D0FFE7D0FEE7D0FEE7D0FE
        E7D0FEE7D0FEE7D0E7CBB8A1756DEFD5C1FEE7D0FEE7D08E5D59FF00FF8E5D59
        FEF0E2FEF0E3FEF0E2DDC5BBA37873F6E6DAFFF0E3FEF0E3FEF0E3FEF0E2FEF0
        E3FEF0E2FEF0E3FEF0E2FEF0E2F7E6DAA37873DEC5BAFEF0E2FEF0E3FEF0E28E
        5D59FF00FF8E5D59FEF8F2FEF8F3FEF8F2FFF7F3C5A7A3B5918CFEF8F3FEF8F3
        FEF8F2FEF7F2FEF8F3FEF8F2FEF8F3FEF8F2FFF8F3B5918CC5A9A4FEF7F3FEF8
        F3FEF8F2FEF8F28E5D59FF00FF8E5D59FEFEFEFEFEFEFEFEFEFEFEFEFCFBFBAD
        8987CCB5B4FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFECAB2B0AF8B88
        FCFBFBFEFEFEFEFEFEFEFEFEFEFEFE8E5D59FF00FF8E5D59FEFEFEFEFEFEFEFE
        FEFCFBFBC7ADACAC8884986B68986B68986B68986B68986B68986B68986B6898
        6B68986B68C2A6A4FCFBFBFEFEFEFEFEFEFEFEFEFEFEFE8E5D59FF00FF8E5D59
        FEFEFEFEFEFEF0EBEAAD8986B4918FF4F0F0FEFEFEFEFEFEFEFEFEFEFEFEFEFE
        FEFEFEFEFEFEFEFEFEFEF4F0F0B4918FAD8986F0EBEAFEFEFEFEFEFEFEFEFE8E
        5D59FF00FF8E5D59FEFEFEDCCCCAA07673CEB6B5FEFEFEFEFEFEFEFEFEFEFEFE
        FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFECEB6B5A07673DCCC
        CAFEFEFEFEFEFE8E5D59FF00FF8E5D59C6ACAAA57E7AACACACFEFEFEFEFEFEFE
        FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
        FEFEFEE9DEDDA57E7AC6ACAAFEFEFE8E5D59FF00FF8E5D59A18687A5E6E6ACAC
        ACFFFFFFFBFFFFFAFFFFF6FFFFF6FFFFEFFFFFEFFFFFEFFFFFF2FFFFF2FFFFF4
        FFFFF6FFFFF4FFFFEFFFFFE7F6F6D1E1E1B5B7B7B29D9D8E5D59FF00FF8E5D59
        A69598A7FEFFACACACFEFFFFFBFFFFFBFFFFFBFFFFFFFFFFFFFFFFFFFFFFFBFF
        FFEEF7F7D5DEE0C1CCCEB6BDBFADB4B5ACADADAAADAFA1AFB49AACB2A390928E
        5D59FF00FFFF00FF8E5D59B89696ACACACFFFFFFFFFFFFFFFFFFE9EBEBCED5D7
        BDC5C6B1BABAAAAFB0AAACADA3ADB097AFB589AFBA7EAFC073B1CC67BAE079AA
        C7A683898E5D59FF00FFFF00FFFF00FFFF00FF8E5D59C69695ADB4B5ABBABAAC
        ACACA5B6B89ABABC8FBFC581C9CF76D1DA6DD8E76ED8EB70D4EB72D1ED6FD7F7
        6DD7FC91ADC28E5D598E5D59FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8E5D
        5997747299B6BB72F0FB6BF6FF70EAFA72EBFB72EEFC74EFFF74F0FF75EDFE76
        E7FC6FEBFF77DAF49AA9B68E5D59FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF8E5D59B0959686D1D96BFFFF72F6FF74EFFF74EF
        FF74EFFF70F4FF6DF8FF87CAD9B092968E5D59FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8E5D598E5D5998BABF
        77EBF66DFBFF6DFBFF6EF8FF75EEFB98BABF8E5D598E5D59FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FF8E5D598E5D599DAFB295BBC19EADB08E5D598E5D59FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8E5D598E5D598E5D59FF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = spbEnviarClick
      SkinData.SkinSection = 'SPEEDBUTTON'
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 778
    Height = 474
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 778
        Height = 474
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sPanel2: TsPanel
          Left = 1
          Top = 1
          Width = 776
          Height = 120
          Align = alTop
          TabOrder = 0
          SkinData.SkinSection = 'PANEL'
          object sLabel1: TsLabel
            Left = 16
            Top = 39
            Width = 35
            Height = 13
            Caption = 'Cliente:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel2: TsLabel
            Left = 16
            Top = 65
            Width = 57
            Height = 13
            Caption = 'Fornecedor:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel3: TsLabel
            Left = 16
            Top = 91
            Width = 49
            Height = 13
            Caption = 'Vendedor:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel4: TsLabel
            Left = 16
            Top = 15
            Width = 58
            Height = 13
            Caption = 'N'#186' Contrato:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel14: TsLabel
            Left = 545
            Top = 15
            Width = 95
            Height = 13
            Caption = 'Data Carregamento:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedCodigoEmitenteCliente: TsCurrencyEdit
            Tag = 1000
            Left = 77
            Top = 35
            Width = 57
            Height = 21
            Hint = 'Digite o C'#243'digo do Cliente'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnExit = cedCodigoEmitenteClienteExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dblEmitenteCliente: TsDBLookupComboBox
            Left = 137
            Top = 35
            Width = 592
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE'
            ListField = 'RAZAO_SOCIAL'
            ListSource = dtsCliente
            ParentFont = False
            TabOrder = 3
            OnCloseUp = dblEmitenteClienteCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
          object dblEmitenteFornecedor: TsDBLookupComboBox
            Left = 137
            Top = 61
            Width = 592
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE'
            ListField = 'RAZAO_SOCIAL'
            ListSource = dtsFornecedor
            ParentFont = False
            TabOrder = 5
            OnCloseUp = dblEmitenteFornecedorCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
          object cedCodigoEmitenteFornecedor: TsCurrencyEdit
            Tag = 1000
            Left = 77
            Top = 61
            Width = 57
            Height = 21
            Hint = 'Digite o C'#243'digo do Fornecedor'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            OnExit = cedCodigoEmitenteFornecedorExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dblEmitenteVendedor: TsDBLookupComboBox
            Left = 137
            Top = 87
            Width = 592
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE'
            ListField = 'RAZAO_SOCIAL'
            ListSource = dtsVendedor
            ParentFont = False
            TabOrder = 7
            OnCloseUp = dblEmitenteVendedorCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
          object cedCodigoEmitenteVendedor: TsCurrencyEdit
            Tag = 1000
            Left = 77
            Top = 87
            Width = 57
            Height = 21
            Hint = 'Digite o C'#243'digo do Vendedor'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object cedNroContrato: TsCurrencyEdit
            Left = 77
            Top = 11
            Width = 57
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnExit = cedCodigoEmitenteClienteExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dedDataCarregamento: TsDateEdit
            Tag = 1000
            Left = 643
            Top = 11
            Width = 86
            Height = 21
            Hint = 'Digite a Data de Carregamento'
            AutoSize = False
            Color = clWhite
            EditMask = '!99/99/9999;1; '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 10
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            Text = '  /  /    '
            OnEnter = dedDataCarregamentoEnter
            OnExit = dedDataCarregamentoExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
          end
        end
        object sPanel3: TsPanel
          Left = 1
          Top = 320
          Width = 776
          Height = 153
          Align = alBottom
          TabOrder = 1
          SkinData.SkinSection = 'PANEL'
          object sLabel10: TsLabel
            Left = 16
            Top = 14
            Width = 87
            Height = 13
            Caption = 'R$ Total Contrato:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel11: TsLabel
            Left = 16
            Top = 40
            Width = 89
            Height = 13
            Caption = 'Forma Pagamento:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel12: TsLabel
            Left = 208
            Top = 14
            Width = 29
            Height = 13
            Caption = 'ICMS:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel13: TsLabel
            Left = 560
            Top = 14
            Width = 27
            Height = 13
            Caption = 'Frete:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel16: TsLabel
            Left = 17
            Top = 66
            Width = 80
            Height = 13
            Caption = 'Forma Comiss'#227'o:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel17: TsLabel
            Left = 17
            Top = 88
            Width = 25
            Height = 13
            Caption = 'OBS:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedValorTotalContrato: TsCurrencyEdit
            Left = 109
            Top = 10
            Width = 86
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnExit = cedValorUnitarioExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '###,###,##0.00'
          end
          object edtFormaPgto: TsEdit
            Left = 109
            Top = 36
            Width = 436
            Height = 21
            CharCase = ecUpperCase
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object cboICMS: TsComboBox
            Left = 240
            Top = 10
            Width = 305
            Height = 21
            Alignment = taLeftJustify
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
            Style = csDropDownList
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ItemHeight = 13
            ItemIndex = -1
            ParentFont = False
            TabOrder = 1
            Items.Strings = (
              'DIFERIDO'
              '4,8 %'
              '8,4 %'
              '12 %')
          end
          object cboFrete: TsComboBox
            Left = 600
            Top = 10
            Width = 121
            Height = 21
            Alignment = taLeftJustify
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
            Style = csDropDownList
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ItemHeight = 13
            ItemIndex = -1
            ParentFont = False
            TabOrder = 2
            Items.Strings = (
              'POR CONTA DO COMPRADOR'
              'POR CONTA DO VENDEDOR')
          end
          object edtComissao: TsEdit
            Left = 110
            Top = 62
            Width = 435
            Height = 21
            CharCase = ecUpperCase
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object chkPrazoPadrao: TsCheckBox
            Left = 560
            Top = 37
            Width = 98
            Height = 19
            Caption = 'Prazo Padr'#227'o?'
            Checked = True
            State = cbChecked
            TabOrder = 5
            OnClick = chkPrazoPadraoClick
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
          object chkComissaoPadrao: TsCheckBox
            Left = 560
            Top = 63
            Width = 116
            Height = 19
            Caption = 'Comiss'#227'o Padr'#227'o?'
            Checked = True
            State = cbChecked
            TabOrder = 6
            OnClick = chkComissaoPadraoClick
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
          object cedPrazo: TsCurrencyEdit
            Left = 672
            Top = 36
            Width = 48
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 7
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '####0'
          end
          object cedComissao: TsCurrencyEdit
            Left = 672
            Top = 62
            Width = 48
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '###,###,##0.00'
          end
          object memOBS: TsMemo
            Left = 110
            Top = 88
            Width = 609
            Height = 49
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 600
            ParentFont = False
            ScrollBars = ssVertical
            TabOrder = 9
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
          end
        end
        object sPanel4: TsPanel
          Left = 1
          Top = 121
          Width = 776
          Height = 199
          Align = alClient
          TabOrder = 2
          SkinData.SkinSection = 'PANEL'
          object sPanel5: TsPanel
            Left = 1
            Top = 1
            Width = 774
            Height = 114
            Align = alTop
            TabOrder = 0
            SkinData.SkinSection = 'PANEL'
            object sLabel5: TsLabel
              Left = 16
              Top = 15
              Width = 40
              Height = 13
              Caption = 'Produto:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object sLabel6: TsLabel
              Left = 16
              Top = 41
              Width = 53
              Height = 13
              Caption = 'Toneladas:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object sLabel7: TsLabel
              Left = 16
              Top = 65
              Width = 42
              Height = 13
              Caption = 'R$ Ton.:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object sLabel8: TsLabel
              Left = 176
              Top = 65
              Width = 44
              Height = 13
              Caption = 'R$ Total:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object sLabel9: TsLabel
              Left = 176
              Top = 41
              Width = 66
              Height = 13
              Caption = 'Data Entrega:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object sLabel15: TsLabel
              Left = 16
              Top = 89
              Width = 51
              Height = 13
              Caption = 'Qualidade:'
              ParentFont = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = 2171169
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
            end
            object cedCodigoProduto: TsCurrencyEdit
              Left = 77
              Top = 11
              Width = 57
              Height = 21
              AutoSize = False
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              OnExit = cedCodigoProdutoExit
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'EDIT'
              GlyphMode.Blend = 0
              GlyphMode.Grayed = False
              DecimalPlaces = 0
              DisplayFormat = '#########0'
            end
            object dblProduto: TsDBLookupComboBox
              Left = 137
              Top = 11
              Width = 592
              Height = 21
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              KeyField = 'CODIGO_PRODUTO'
              ListField = 'DESCRICAO_PRODUTO'
              ListSource = dtsProduto
              ParentFont = False
              TabOrder = 1
              OnCloseUp = dblProdutoCloseUp
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'COMBOBOX'
            end
            object cedQtdProduto: TsCurrencyEdit
              Left = 77
              Top = 36
              Width = 86
              Height = 21
              AutoSize = False
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
              OnExit = cedQtdProdutoExit
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'EDIT'
              GlyphMode.Blend = 0
              GlyphMode.Grayed = False
              DisplayFormat = '###,###,##0.000'
            end
            object cedValorUnitario: TsCurrencyEdit
              Left = 77
              Top = 60
              Width = 86
              Height = 21
              AutoSize = False
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 3
              OnExit = cedValorUnitarioExit
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'EDIT'
              GlyphMode.Blend = 0
              GlyphMode.Grayed = False
              DisplayFormat = '###,###,##0.00'
            end
            object cedValorTotal: TsCurrencyEdit
              Left = 248
              Top = 60
              Width = 86
              Height = 21
              AutoSize = False
              Color = clWhite
              Enabled = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 5
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'EDIT'
              GlyphMode.Blend = 0
              GlyphMode.Grayed = False
              DisplayFormat = '###,###,##0.00'
            end
            object btnAdicionaProduto: TsBitBtn
              Left = 344
              Top = 58
              Width = 25
              Height = 25
              TabOrder = 7
              OnClick = btnAdicionaProdutoClick
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
                5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
                F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
                F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
                05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
                A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
                5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
                915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
                F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
                F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
                F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
                00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
              SkinData.SkinSection = 'BUTTON'
            end
            object btnDeletaProduto: TsBitBtn
              Left = 376
              Top = 58
              Width = 25
              Height = 25
              TabOrder = 8
              OnClick = btnDeletaProdutoClick
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
                00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FF00006E00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E0000
                6EFF00FFFF00FFFF00FFFF00FFFF00FF00006E001DE80010DC00006EFF00FFFF
                00FFFF00FFFF00FF00006E0004E20008E700006EFF00FFFF00FFFF00FFFF00FF
                00006E001AE2001FEB0010D900006EFF00FFFF00FF00006E0005DF0009EB0003
                DB00006EFF00FFFF00FFFF00FFFF00FFFF00FF00006E001ADF0020EB0013DC00
                006E00006E0005E2000BEB0004DA00006EFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FF00006E001BDF0022EB0012E60008EA0009EB0004DF00006EFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E001BE300
                16EB0011EB000ADF00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FF00006E0021E7001EEB001AEB0017DF00006EFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E062DE30430EB00
                20E2001EE20027EB0019DF00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FF00006E0C35E40E3CEB052BDC00006E00006E001FDC002AEB001CDF0000
                6EFF00FFFF00FFFF00FFFF00FFFF00FF00006E1442E41645EB092ED900006EFF
                00FFFF00FF00006E0020D9012CEB001FE200006EFF00FFFF00FFFF00FFFF00FF
                00006E1C4BE71037DB00006EFF00FFFF00FFFF00FFFF00FF00006E0022DC0027
                E400006EFF00FFFF00FFFF00FFFF00FFFF00FF00006E00006EFF00FFFF00FFFF
                00FFFF00FFFF00FFFF00FF00006E00006EFF00FFFF00FFFF00FFFF00FFFF00FF
                FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
                FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
                00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
              SkinData.SkinSection = 'BUTTON'
            end
            object dedDataEntrega: TsDateEdit
              Left = 248
              Top = 37
              Width = 86
              Height = 21
              AutoSize = False
              Color = clWhite
              EditMask = '!99/99/9999;1; '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              MaxLength = 10
              ParentFont = False
              TabOrder = 4
              Text = '  /  /    '
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
              SkinData.SkinSection = 'EDIT'
              GlyphMode.Blend = 0
              GlyphMode.Grayed = False
            end
            object edtQualidade: TsEdit
              Left = 77
              Top = 85
              Width = 652
              Height = 21
              CharCase = ecUpperCase
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 6
              SkinData.SkinSection = 'EDIT'
              BoundLabel.Indent = 0
              BoundLabel.Font.Charset = DEFAULT_CHARSET
              BoundLabel.Font.Color = clWindowText
              BoundLabel.Font.Height = -11
              BoundLabel.Font.Name = 'MS Sans Serif'
              BoundLabel.Font.Style = []
              BoundLabel.Layout = sclLeft
              BoundLabel.MaxWidth = 0
              BoundLabel.UseSkinColor = True
            end
          end
          object dbgContratoProdutos: TRxDBGrid
            Left = 1
            Top = 115
            Width = 774
            Height = 83
            Align = alClient
            DataSource = dtsContratoProdutos
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'CODIGO_PRODUTO'
                Title.Caption = 'C'#243'digo Produto'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DESCRICAO_PRODUTO'
                Title.Caption = 'Produto'
                Width = 345
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'QTD_PRODUTO'
                Title.Caption = 'Toneladas'
                Width = 79
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_UNITARIO'
                Title.Caption = 'R$ Ton.:'
                Width = 89
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'VALOR_TOTAL'
                Title.Caption = 'R$ Total'
                Width = 94
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DATA_ENTREGA'
                Title.Caption = 'Data Entrega'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'QUALIDADE'
                Title.Caption = 'Qualidade'
                Width = 185
                Visible = True
              end>
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object dbgConsulta: TRxDBGrid
        Left = 0
        Top = 0
        Width = 778
        Height = 415
        Align = alClient
        DataSource = dtsConsulta
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = dbgConsultaDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'NRO_CONTRATO'
            Title.Caption = 'N'#186' Contrato'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DATA_EMISSAO'
            Title.Caption = 'Emiss'#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RAZAO_CLIENTE'
            Title.Caption = 'Cliente'
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RAZAO_FORNECEDOR'
            Title.Caption = 'Fornecedor'
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RAZAO_VENDEDOR'
            Title.Caption = 'Vendedor'
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR_CONTRATO'
            Title.Caption = 'Valor Contrato'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DATA_CARREGAMENTO'
            Title.Caption = 'Data Carregamento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORMA_PAGAMENTO'
            Title.Caption = 'Forma Pagamento'
            Width = 250
            Visible = True
          end>
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 664
    Top = 216
  end
  object qryCliente: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT EMI.CODIGO_EMITENTE, EMI.RAZAO_SOCIAL'
      '  FROM EMITENTE EMI'
      ' WHERE EMI.CLIENTE_SN = '#39'S'#39
      'ORDER BY EMI.RAZAO_SOCIAL')
    Left = 464
    Top = 73
    object qryClienteCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryClienteRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
  end
  object dtsCliente: TDataSource
    DataSet = qryCliente
    Left = 520
    Top = 65
  end
  object qryFornecedor: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT EMI.CODIGO_EMITENTE, EMI.RAZAO_SOCIAL'
      '  FROM EMITENTE EMI'
      ' WHERE EMI.FORNECEDOR_SN = '#39'S'#39
      'ORDER BY EMI.RAZAO_SOCIAL')
    Left = 344
    Top = 105
    object qryFornecedorCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryFornecedorRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
  end
  object dtsFornecedor: TDataSource
    DataSet = qryFornecedor
    Left = 424
    Top = 113
  end
  object qryVendedor: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT EMI.CODIGO_EMITENTE, EMI.RAZAO_SOCIAL'
      '  FROM EMITENTE EMI'
      ' WHERE EMI.VENDEDOR_SN = '#39'S'#39
      'ORDER BY EMI.RAZAO_SOCIAL')
    Left = 312
    Top = 153
    object qryVendedorCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryVendedorRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
  end
  object dtsVendedor: TDataSource
    DataSet = qryVendedor
    Left = 344
    Top = 153
  end
  object rxContratoProdutos: TRxMemoryData
    FieldDefs = <>
    Left = 249
    Top = 322
    object rxContratoProdutosCODIGO_PRODUTO: TIntegerField
      FieldName = 'CODIGO_PRODUTO'
    end
    object rxContratoProdutosDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object rxContratoProdutosQTD_PRODUTO: TFloatField
      FieldName = 'QTD_PRODUTO'
      DisplayFormat = '###,###,##0.000'
    end
    object rxContratoProdutosVALOR_UNITARIO: TFloatField
      FieldName = 'VALOR_UNITARIO'
      DisplayFormat = '###,###,##0.00'
    end
    object rxContratoProdutosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      DisplayFormat = '###,###,##0.00'
    end
    object rxContratoProdutosDATA_ENTREGA: TDateField
      FieldName = 'DATA_ENTREGA'
    end
    object rxContratoProdutosQUALIDADE: TStringField
      FieldName = 'QUALIDADE'
      Size = 300
    end
  end
  object dtsContratoProdutos: TDataSource
    DataSet = rxContratoProdutos
    Left = 353
    Top = 330
  end
  object qryProduto: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT P.CODIGO_PRODUTO, P.DESCRICAO_PRODUTO, P.VALOR_VENDA'
      '  FROM PRODUTO P'
      ''
      ''
      '  ORDER BY P.ORDEM')
    Left = 458
    Top = 203
    object qryProdutoCODIGO_PRODUTO: TAutoIncField
      FieldName = 'CODIGO_PRODUTO'
      ReadOnly = True
    end
    object qryProdutoDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object qryProdutoVALOR_VENDA: TFloatField
      FieldName = 'VALOR_VENDA'
    end
  end
  object dtsProduto: TDataSource
    DataSet = qryProduto
    Left = 538
    Top = 203
  end
  object qryIncluirContrato: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'USUARIO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_CLIENTE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_FORNECEDOR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_VENDEDOR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'STATUS_CONTRATO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'VALOR_CONTRATO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'FORMA_PAGAMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 600
        Value = Null
      end
      item
        Name = 'ICMS'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'DATA_CARREGAMENTO'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'TIPO_FRETE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_ICMS'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_FRETE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'COMISSAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'GERAR_FINANCEIRO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'QTD_PRODUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_UNITARIO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'DATA_ENTREGA'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'QUALIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'COMISSAO_PADRAO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'PERCENTUAL_COMISSAO'
        Attributes = [paSigned]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PRAZO_PADRAO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'DIAS_PRAZO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'OBS'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO CONTRATO'
      '      ('
      '          DATA_EMISSAO,'
      '          USUARIO,'
      '          CODIGO_EMITENTE_CLIENTE,'
      '          CODIGO_EMITENTE_FORNECEDOR,'
      '          CODIGO_EMITENTE_VENDEDOR,'
      '          STATUS_CONTRATO,'
      '          VALOR_CONTRATO,'
      '          FORMA_PAGAMENTO,'
      '          ICMS,'
      '          DATA_CARREGAMENTO,'
      '          TIPO_FRETE,'
      '          CODIGO_ICMS,'
      '          CODIGO_TIPO_FRETE,'
      '          COMISSAO,'
      '          GERAR_FINANCEIRO_SN,'
      '          CODIGO_PRODUTO,'
      '          QTD_PRODUTO,'
      '          VALOR_UNITARIO,'
      '          VALOR_TOTAL,'
      '          DATA_ENTREGA,'
      '          QUALIDADE,'
      '          COMISSAO_PADRAO_SN,'
      '          PERCENTUAL_COMISSAO,'
      '          PRAZO_PADRAO_SN,'
      '          DIAS_PRAZO,'
      '          OBS'
      '      )'
      'VALUES ('
      '          getdate(),'
      '          :USUARIO,'
      '          :CODIGO_EMITENTE_CLIENTE,'
      '          :CODIGO_EMITENTE_FORNECEDOR,'
      '          :CODIGO_EMITENTE_VENDEDOR,'
      '          :STATUS_CONTRATO,'
      '          :VALOR_CONTRATO,'
      '          :FORMA_PAGAMENTO,'
      '          :ICMS,'
      '          :DATA_CARREGAMENTO,'
      '          :TIPO_FRETE,'
      '          :CODIGO_ICMS,'
      '          :CODIGO_TIPO_FRETE,'
      '          :COMISSAO,'
      '          :GERAR_FINANCEIRO_SN,'
      '          :CODIGO_PRODUTO,'
      '          :QTD_PRODUTO,'
      '          :VALOR_UNITARIO,'
      '          :VALOR_TOTAL,'
      '          :DATA_ENTREGA,'
      '          :QUALIDADE,'
      '          :COMISSAO_PADRAO_SN,'
      '          :PERCENTUAL_COMISSAO,'
      '          :PRAZO_PADRAO_SN,'
      '          :DIAS_PRAZO,'
      '          :OBS'
      '       )'
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 537
    Top = 266
  end
  object qryIncluirContratoProduto: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NRO_CONTRATO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'QTD_PRODUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_UNITARIO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'DATA_ENTREGA'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'QUALIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO CONTRATO_PRODUTO'
      '      ('
      '          NRO_CONTRATO,'
      '          CODIGO_PRODUTO,'
      '          QTD_PRODUTO,'
      '          VALOR_UNITARIO,'
      '          VALOR_TOTAL,'
      '          DATA_ENTREGA,'
      '          QUALIDADE'
      '      )'
      'VALUES ('
      '          :NRO_CONTRATO,'
      '          :CODIGO_PRODUTO,'
      '          :QTD_PRODUTO,'
      '          :VALOR_UNITARIO,'
      '          :VALOR_TOTAL,'
      '          :DATA_ENTREGA,'
      '          :QUALIDADE'
      '       )'
      ' ')
    Left = 225
    Top = 426
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT CON.*,'
      '       EMI_CLI.RAZAO_SOCIAL RAZAO_CLIENTE,'
      '       EMI_FOR.RAZAO_SOCIAL RAZAO_FORNECEDOR,'
      '       EMI_VEN.RAZAO_SOCIAL RAZAO_VENDEDOR'
      
        '  FROM CONTRATO CON, EMITENTE EMI_CLI, EMITENTE EMI_FOR, EMITENT' +
        'E EMI_VEN'
      ' WHERE     CON.CODIGO_EMITENTE_CLIENTE = EMI_CLI.CODIGO_EMITENTE'
      
        '       AND CON.CODIGO_EMITENTE_FORNECEDOR = EMI_FOR.CODIGO_EMITE' +
        'NTE'
      
        '       AND CON.CODIGO_EMITENTE_VENDEDOR = EMI_VEN.CODIGO_EMITENT' +
        'E')
    Left = 584
    Top = 137
    object qryConsultaNRO_CONTRATO: TAutoIncField
      FieldName = 'NRO_CONTRATO'
      ReadOnly = True
    end
    object qryConsultaDATA_EMISSAO: TDateTimeField
      FieldName = 'DATA_EMISSAO'
    end
    object qryConsultaRAZAO_CLIENTE: TStringField
      FieldName = 'RAZAO_CLIENTE'
      Size = 300
    end
    object qryConsultaRAZAO_FORNECEDOR: TStringField
      FieldName = 'RAZAO_FORNECEDOR'
      Size = 300
    end
    object qryConsultaRAZAO_VENDEDOR: TStringField
      FieldName = 'RAZAO_VENDEDOR'
      Size = 300
    end
    object qryConsultaVALOR_CONTRATO: TFloatField
      FieldName = 'VALOR_CONTRATO'
      DisplayFormat = '###,###,##0.00'
    end
    object qryConsultaDATA_CARREGAMENTO: TDateTimeField
      FieldName = 'DATA_CARREGAMENTO'
    end
    object qryConsultaFORMA_PAGAMENTO: TStringField
      FieldName = 'FORMA_PAGAMENTO'
      Size = 600
    end
    object qryConsultaUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 50
    end
    object qryConsultaCODIGO_EMITENTE_CLIENTE: TIntegerField
      FieldName = 'CODIGO_EMITENTE_CLIENTE'
    end
    object qryConsultaCODIGO_EMITENTE_FORNECEDOR: TIntegerField
      FieldName = 'CODIGO_EMITENTE_FORNECEDOR'
    end
    object qryConsultaCODIGO_EMITENTE_VENDEDOR: TIntegerField
      FieldName = 'CODIGO_EMITENTE_VENDEDOR'
    end
    object qryConsultaSTATUS_CONTRATO: TStringField
      FieldName = 'STATUS_CONTRATO'
      Size = 50
    end
    object qryConsultaICMS: TStringField
      FieldName = 'ICMS'
      Size = 50
    end
    object qryConsultaTIPO_FRETE: TStringField
      FieldName = 'TIPO_FRETE'
      Size = 50
    end
    object qryConsultaCODIGO_ICMS: TIntegerField
      FieldName = 'CODIGO_ICMS'
    end
    object qryConsultaCODIGO_TIPO_FRETE: TIntegerField
      FieldName = 'CODIGO_TIPO_FRETE'
    end
    object qryConsultaCOMISSAO: TStringField
      FieldName = 'COMISSAO'
      Size = 300
    end
    object qryConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 600
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 56
    Top = 321
  end
  object qryContratoProdutos: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NRO_CONTRATO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT'
      '  CPR.CODIGO_PRODUTO,'
      '  PRO.DESCRICAO_PRODUTO,'
      '  CPR.QTD_PRODUTO,'
      '  CPR.VALOR_UNITARIO,'
      '  CPR.VALOR_TOTAL,'
      '  CPR.DATA_ENTREGA,'
      '  CPR.QUALIDADE'
      ''
      'FROM PRODUTO PRO, CONTRATO_PRODUTO CPR'
      'WHERE'
      '  PRO.CODIGO_PRODUTO = CPR.CODIGO_PRODUTO'
      '  AND CPR.NRO_CONTRATO = :NRO_CONTRATO'
      ' ')
    Left = 313
    Top = 432
    object qryContratoProdutosCODIGO_PRODUTO: TIntegerField
      FieldName = 'CODIGO_PRODUTO'
    end
    object qryContratoProdutosDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object qryContratoProdutosQTD_PRODUTO: TFloatField
      FieldName = 'QTD_PRODUTO'
    end
    object qryContratoProdutosVALOR_UNITARIO: TFloatField
      FieldName = 'VALOR_UNITARIO'
    end
    object qryContratoProdutosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object qryContratoProdutosDATA_ENTREGA: TDateTimeField
      FieldName = 'DATA_ENTREGA'
    end
    object qryContratoProdutosQUALIDADE: TStringField
      FieldName = 'QUALIDADE'
      Size = 300
    end
  end
  object qryAlterarContrato: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'USUARIO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_CLIENTE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_FORNECEDOR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_VENDEDOR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'VALOR_CONTRATO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'FORMA_PAGAMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 600
        Value = Null
      end
      item
        Name = 'ICMS'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'DATA_CARREGAMENTO'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'TIPO_FRETE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_ICMS'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_FRETE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'COMISSAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'GERAR_FINANCEIRO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'QTD_PRODUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_UNITARIO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'DATA_ENTREGA'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'QUALIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'COMISSAO_PADRAO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'PERCENTUAL_COMISSAO'
        Attributes = [paSigned]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PRAZO_PADRAO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'DIAS_PRAZO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'OBS'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 600
        Value = Null
      end
      item
        Name = 'NRO_CONTRATO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE'
      '  CONTRATO'
      'SET '
      '  DATA_EMISSAO               = getdate(), '
      '  USUARIO                    = :USUARIO,'
      '  CODIGO_EMITENTE_CLIENTE    = :CODIGO_EMITENTE_CLIENTE,'
      '  CODIGO_EMITENTE_FORNECEDOR = :CODIGO_EMITENTE_FORNECEDOR,'
      '  CODIGO_EMITENTE_VENDEDOR   = :CODIGO_EMITENTE_VENDEDOR, '
      #9'VALOR_CONTRATO             = :VALOR_CONTRATO, '
      #9'FORMA_PAGAMENTO            = :FORMA_PAGAMENTO, '
      #9'ICMS                       = :ICMS, '
      #9'DATA_CARREGAMENTO          = :DATA_CARREGAMENTO, '
      #9'TIPO_FRETE                 = :TIPO_FRETE,'
      '  CODIGO_ICMS                = :CODIGO_ICMS,'
      '  CODIGO_TIPO_FRETE          = :CODIGO_TIPO_FRETE,'
      '  COMISSAO                   = :COMISSAO,'
      '  GERAR_FINANCEIRO_SN        = :GERAR_FINANCEIRO_SN,'
      '  CODIGO_PRODUTO             = :CODIGO_PRODUTO,'
      '  QTD_PRODUTO                = :QTD_PRODUTO,'
      '  VALOR_UNITARIO             = :VALOR_UNITARIO,'
      '  VALOR_TOTAL                = :VALOR_TOTAL,'
      '  DATA_ENTREGA               = :DATA_ENTREGA,'
      '  QUALIDADE                  = :QUALIDADE,'
      '  COMISSAO_PADRAO_SN         = :COMISSAO_PADRAO_SN,'
      '  PERCENTUAL_COMISSAO        = :PERCENTUAL_COMISSAO,'
      '  PRAZO_PADRAO_SN            = :PRAZO_PADRAO_SN,'
      '  DIAS_PRAZO                 = :DIAS_PRAZO,'
      '  OBS                        = :OBS'
      'WHERE'
      '  NRO_CONTRATO = :NRO_CONTRATO'
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 145
    Top = 362
  end
end
